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MODULE STRSCONCAT ( ! Concatenate several strings 


IDENT = '1-017" ! File: STRCONCAT.B32 Edit: 0G1017 
Jz 
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BEGIN 
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'@ 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

'® DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. 

i ALL RIGHTS RESERVED. 

'® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
'w ONLY IN ACCORDANC TH TH 4 F SUCH LICENSE AND WITH 

'® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
'® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
® 
® 
® 
© 
® 
® 
® 
* 
® 
ie TRANSFERRED. . 
® 
® 
® 
® 
® 
® 
® 
® 
a 
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'@ 

'® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 

'® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 

tx CORPORATION. 

ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 

is SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

ie 
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++ 
FACILITY: String support Library 
ABSTRACT: 


MEUM | SO ODNOUS WN ("OOONOULSWN—O 


SS 


a a tt tt a hh hh 9 9 2 9 ht 1 OOOO OD 


This module takes up to 254 input strings and concatenates 
them into a result string. The strings can be of any supported 
class and data type. 

ENVIRONMENT: VAX-11 User mode 

AUTHOR: R. Will, CREATION DATE: 12-Feb-79 


' 
i MODIFIED BY: 


Soooooooo 


S 
uw 


BARKS SPUWWWIWIINIICrononononononononony 2 3 2 
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R. Will, 12-Feb-79 : VERSION 01 


1-004 - Original. 

1-002 - Add multiple input springs (up to 254) to the CALL 
entry point. JBS 19-MAR-197 

1-003 - Change facility name to STR. JBS 19-MAR-1979 


1-005 = Don't allow a concatenation fo get longer than 65535 bytes, 
the Limit of string lengths in the VAX architecture. 
JBS 09-APR-19 


4 - Make govere) corrections based on the code review. 
JBS O9-APR-19 


Be Se Se Se Be Se Se Be Fe Se Se Ge Ge Ge Se Se Se Se Ge Se Fe Se Ge Ge FH Se Se oe Oe Se Se Se Se Sse Se Se Se Se Ge Se Se Ge Se Se Se Se Se Se Se FHS Se Se oe BH Os we 
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STREEONCAT 


SSIS A AAA OOOO 
AEN CO OONOU EW —OOo 


SoCo OCSoOCOCOCOOOOSoOOoOOOO 


Coooocoooeoo 


te — —) 2 ds ? 2 2 2 2 4 2 ss 


iSoseort9ge OU:3E:AZ YARSNT BL iag=HZ vedere, Page (2 


- 06 - Use the new STR error codes. JBS 16-MAY-1979 
- - Don't return truncate status - ess the result ben th is bsgs 
then. the sum au the lengths of the A ie 353 9 =JUL=1 
8 - Correct some typos 4 comments. 1 
- ne et “BhSSEon a it 998° s itso mw. module, since it must 


na 
9 - ial"? code =. str ng 1.44 a JBS 01-NOV-1979 
- Convert. to to -¥338 ng the string macros to doing interlocks. 


§ - he we dy alled routines don't signal. RW ew rves 
- Ext to recognize additional classes of descriptors by 
iainn SSTRSGET ab EN ADDR fo extract length and address from 
RKR1SeAPR-i981 i981 Remove string interlocking code. 


1-014 = Spe ¥p.ce code. RKR 7-0CT-1981. 

1-015 = Use “Sth SS 1 GNAL FATAL instead of SSTRSCKECK_STATUS. 

1-016 - Add support for class SO string descri i 3-0ct-1983 
1-017 = Change class SO string descriptor to §$ DG 2 -Feb-1984 


!<BLF /PAGE> 
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81 080 ! 
¢ 8 1 SWITCHES: 
4 0 : 4 
5 8° 4 SWITCHES ADDRESSING MODE 
8 Ve (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
88 087 ' 
89 088 ' LINKAGES: 
90 089 \ 
91 09 


REQUIRE 'RTLIN:STRLNK'; 


Use require file with string Linkages 
' 


TABLE OF CONTENTS: 


FORWARD ROUTINE 
STRSCONCAT; 


Coon INO 
Wr oO OCOno oO 


Concatenate two or more strings 
' 


INCLUDE FILES: 


REQUIRE 'RTLIN:RTLPSECT'; Declare PSECTS code 
REQUIRE ‘RTLIN:STRMACROS'; ! use string macros to write code 
LIBRARY ‘RTLSTARLE'; 


STARLET Library for macros and symbols 
' 
MACROS: NONE 


EQUATED SYMBOLS: 
NONE 
PSECT DECLARATIONS 


WWANAINWIWA AAI WI WIWIinononononong 


PROPIPIPOMINONININIDS — 2 9 | SOOO OOOCOOCOWOHOW0O00 000000 


DONA UE WD 0 ODONO UE WIN O ODNOUE WN OO FWONAUSE 


DECLARE_PSECTS (STR); 


Declare psects for STR$ facility 


AN 


' 

OWN STORAGE: 

NONE 

EXTERNAL REFERENCES: 


SSEGLUNSSSSSNOARAN HOON UR WOON 


EXTERNAL ROUTINE 
LIBSSTOP; ! Signal fatal errors 


'¢ 
: The following are the error messages used in this module: 


Dae Se Se Ge Se Se Se Ge Ge Ge Se Se Se Se Ge Fs Se Ge Ge Ge Gs Ge Ge Fe Gs Se Ge Ge FF Ge FF Se FH SH SH SF SF Se SH SESH SESH SH Oe SHEESH SESH Oe HSH SESS Seas 
ee ce el ee ee ce cee ee ce el ce ee ce el ee ce ee ce ce ee ee ee ce ce ee cel ce ce ee ce ee ce cee cee ce ee ce eel ee ee ee ee ce ee ce ce ce ee ee cee ee ceed 
De Se Be Se Se Be Be Be Se Se Be Se Se Ge Fe Se Se SH Se Se Ge FH Se Se Se BH Se Ss Se Se Ge Se BH Se Be Oe Oe Be Se Oe Se SESH Se GHGs Se Se Se Se See es Se ee teas 


a a a kk at tt at dd dd 2 = 9 3 3 - IOOO OOO COC OOCOOO 


ee ee em ee ed nd ed nd od nd etd = od dd 
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EXTERNA LITERAL 

$ NORMAL 

STR $“STRIS_INT 
STRS_ LL STRCLA 
RS-TR 


5 
STRS_FATINTERR, 
STR$_STRTOOLON, 
STRS$_WRONUMARG; 


Success 

String is interlocked 
Illegal string class 

Truncation 

Fatal internal error 


String too ee 
Wrong number of arguments 


Be Oe Oe Oe ee Oe Oe Se Seas 
oe a? a? at ot at et 
NOUSWH—OO@W 
2 2 ts YH SY 
WAWAWNAN 
WAW AWN 
WONAOUL WMO 
ss ss 4 5 FS 
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GLOBAL ROUTINE STRSCONCAT ( Concatenate strings 
DEST_DESC ! pointer to destination descriptor 


1 
1 
: 


44 

FUNCTIONAL DESCRIPTION 

This routine takes up to 254 source strings of ony supported 
DTYPE and CLASS, concatenates them, and assigns that value to 
the destination string. 


FORMAL PARAMETERS: 


WNWNWAWAAAWAWAAAWAAAWNA 


DEST _DESC.wt.dx Pointer to destination descriptor 
CINPOT).rt.dx Pointer to input string descriptor. 
There can be up to 254 of these. 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
SS$_NORMAL ALL of the characters in the input strings were 
copied into the destination string. 
STRS_TRU One or more input characters were not copied. 


This can only happen when the destination is a 
string having fixed-length semantics. 


SIDE EFFECTS: 


Mey allocate storage for the destination. 

This routine signals if allocation fails (STRS_INSVIRMEM) 

or a descriptor is bad (STR$ Buh e Teste? An attempt to create a 
dynamic string longer than 65 bytes signals STRS_STRTOOLON, 

; R$_FATINTER n 


N if the debug switch is set i 
TRMACROS and there is some internal corruption, and 

tobe Fnac if there are not at least 2 arguments to this 
routine. 


1090909 09 09 SIN SSIS NN AAA AAA AAA MMIII BB PPP PPE 
FUN $$ O OONAU EWN $9 ODNAUS WN $0 ODNOAOULS AR SO ODONOUS WO 


BEGIN 


UILTIN 
ACTUALPARAMETER, 
ACTUAL COUNT ; 


REVLSSSLESLIAV LSE SEVSALANT SS SHVSARANASSSISTFERISSSGSALUNLSS 


MAP 
DEST_DESC : REF SSTRSDESCRIPTOR; 


ee ce cel ee cee ce ee ee ee ee ce ee ee ce ee ce ee ce ee ee ce ce el el el ce ce ee el el el ce ee el ee ce ce cee cee ee ce ee ee ee ce cee ee ee ce ee ce ed 


AWAWWAA. AAA AAA AINA AAAI AWN AIAIAAIAI AA AAA 


ee en en ee ee ee ee ee ee et ee ee ee ee ee ee ee 
FIP III III IIIA a at st a a tk ed hd od 


Be Se Se Se Se Se Ge Se Se Ge Se Se Ge Ge Fe Ge Ge Ge Se FH Se Be Se Ge Ge Se Ge FH Se Ge Se Ss Se Se Se Ss Ge Se Se Sse Se SESH SH SF Ss Se SESH Se eS Bees Se eees 


FARAW LOCOS 


So 
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STRSCONCAT 16-Sep-1984 01:33: AX-11 Bliss-32 V4.0-74 Pa 6 
1-01 13780871382 93 :23;03 CIBRTL SREISTRCONCAT. B92: 1 = (3) 
; $6 1338 abe TT: 5535 1 t stri handL 
H = ° ' Largest string we can handle 
3 O8 1335 FIRST_INPUT_ARG = $? Argunent nunber of the first 
: 10 14 1 string 
; i 1208 LOCAL 
; 2) 1404 OUT_LEN ! original Length of destination string 
> 214 1405 OUT“ADDR, i address of 1st byte of original 
3 i 1288 destination string 
3 § RETURN STATUS, ! status from alloc and dealloc 
- 138 esate Py headin 
; i$ 1410 RESULT_LENGTH, i Number of bytes in destination 
; 220 1411 RESULT_CLASS; ! Descriptor class of destination 


3 

TRSCONCAT 18-se -1984 01:33: AX-11 Bliss-32 V4.0-74 Page 7 
S18H5 1 ~300n 138% 94:33:38 LIBRTL.SRCISTRCONCAT.B 2;1 . (4) 
1+ 
! rie routine contains a greet deal of repet) tious ode. This is done 
! deliberately so that each class of destination str ng is handled 
' as efficiently as possible with a minimal eepunt of invocations of 
' common code. As an overall guide to the follow ng pages of code, 
' note the overall structure of the code, as indicated below. 


PRLS 
a td 


{ Loop to count up the total Lengths of all the input strings 
i and to detect whether any of the inputs overlap with the 

{ output area. If overlaps exist, we must do concatenation 

: into @ temporary area, then move temporary area to true 

t destination area. If no overlap, copying directly into 
destination area will occur. 


WA 


WN" OOODNOUE WN "OOO NAOULS wiry 


w---- CASE on class of output descriptor 


-- Classes S, 2, A, NCA, SD and SB. These classes have 
fixed-length string semantics and are copied wit 
— padding if necessary. Those that don't fit 
return STR$_TRU 


Code for fixed-length semantic strings, where one or 
more sources overlap destination string. 


or 


Code for fixed-length semantic strings, where there 
is no overlap. 


MOTION 


DPA PASI BEEP EPP EU 
BREE EES PWN rnnonononononononon 


AAO 
eho DS Soe oA 2 Ooo One 


= 


Class D. This class of descriptor has 
dynamic-length string semantics and is ¢ 
no trot iog pads ins Those that don't f 
signal STR$_TOOLON. 


Code for dynamic-length semantic strings, where one or 
more sources overlap destination string. 


SSEUsOR 


OoOew 
WN 9 OONOUE WN $0 OB NAUE WN $9 ODNOU EW “ODO ONOUS WN OOOVNOUS wry 


PAEAAQPEMMMNAVUMIVMIVIV 


a ec ce ce ee me ce De me a ee ee ee ee ce ee ee ee ee ed ed ed oe 


Fal tal teh tal tat ad al telat kd kk kk a lah eh eh ah eh Ne ah ak tak a ek ek ek ek ek ek ek et et et at et et et et tet 


i 


or 
71 Code for Gynentetongth semantic strings, where there 
i Ss no overlap. 
75 65 
7 66 “- Class VS. This class of descriptor has 
7 67 very ingnjength string semantics and is copied with 
78 68 no trailing padding. Those that don't fit within 


1E$80-1884 QU:EREB  YMaLT MRS TRcMe ks 7Abo. 
DSC$W_MAXSTRLEN return STRS$_TRU. 


| Code for varying-Length gqnentic strings, where one or 
more sources overlap destination string. 


or 


i Code for varying-Length semantic strings, where there 
: is no overlap. 


a ss a ss 5 
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ait 1 30071382 93:25:85 YERTL REISTRCONCAT.B 2;1 ee (5) 
16 
Check for a proper number of arguments and preset return status. 


NOU WwW 


IF _CACTUALCOUNT () LSS FIRST_INPUT ARG) 
BEGIN 


i Build a local fixed-length descriptor pointing to name of this 
routine and use it to signal STRS_WRONUMARG. 


LOCAL 
ROUT_NAME_DESC : SSTRSDESCRIPTOR; 

ROUT_NAME _DESC [DSCS$W_LENGTH) = 10 ; 

ROUT _NAME _DESC $43 at = DSCSK_DTYPE_T; 

ROUT_NAME_DESC [DSCSB_CLASS) = DSCSK CLASS S; 

R DESC CDSCSA-POINTER) = UPLIT (ZASCII'STRSCONCAT'): 

L}esSToP TSTRS_WRONUMARG, 2, ACTUALCOUNT (), ROUT_NAME_DESCS; 
RETURN_STATUS = 1 ; ! Assume success to follow 


14 
Extract Length and address of destination string. 


SSTRSGET_LEN_ADDR (DEST_DESC, OUT_LEN, OUT_ADDR ) ; 


i] 

! Check each source argument for overlapping the destination. 

! Note that the code below will sometimes decide we have overlap when 

! : if the destination strinp is fixed-length and shorter 

! than the sum of the sources, we will reach beyond the end of the 

! destination string, and may run into a source string. The consequent 

' decrease in speed (because of using a temporary descriptor needlessly) 

$8 gore than made up for by the improved speed of the scanning loop 
elow. 

4 


OVERLAP_FLAG = 0; 
TOTAL_LENGTH = 0: 


'¢ 
Now step through all the input descriptors 


INCR ARG, NO FROM FIRST_INPUT_ARG TO ACTUALCOUNT () DO 


WWWAAAIWI 
Use ee ui ve PIPPIN NININPIN 2 2 Ss OOO COOO 
SSBNSARUN OSHS GOUE UNIO DONO EUV HO ORNAMNR WU HOSR NEAR AMO ODOR 
tt I I I BOOODOOCOCOCOOCOCOOOVOOOOOO 


DWONOAUNE WIPO OD NONE UN (OOO NAME WIN OO ONOAOU EW "QO OONOYV Sw 


EG 
LOCAL 
IN_LEN ! Length of Nth input string 
IN-ADDR i addr of Ist byte of Nth string 
SRU_DESC : REF SSTRSDESCRIPTOR; ' addr of Nth input 


! string descriptor 
SRC_DESC = ACTUALPARAMETER (.ARG_NO); ! get Nth descr address 


+ 
! Extract length and address of this input string. 


ee ae a a a el ee ee el a a a el el el ee ce cl ce el ee a a a a ee ed 
SR eee sh sh Ab db bib edb dh Ab Ab Ab db Ab Ab Abedb Ab Ab Ab Ab Ab Ah Ah Ab Ab sh sh al tet det Del tal tel el DP et et ee ee a? a? a? >? a? mt 


Be Se Oe Be Se Se Ge Ge Be Be Se Ge Se Se Ge Se Se Ge Ge Se Ge Ge Se Ge Se Fe Ge SH Se Ge Se Se Fe Se Se SH Se Se Se Se Se Se Se Se Fe Sse Se 4 Se Se Sete Sees te ee 


1984 01:33: AX-11 Bliss-32 V4.0-74 Page 10 
eats 9 :20;03 LIBRTL. REISTACONCAT B92; 1 ’ JS 
le 
SSTRSGET_LEN_ADDR (SRC_DESC, IN_LEN, IN_ADDR) ; 

TOTAL_LENGTH = .TOTAL_LENGTH + .IN_LEN; 

14 
! If this string overlaps destination then set OVERLAP. 

! In either case, continue looping through all sources so that 
we know total length involved. 
if (S$STRSOVERLAP ( -INLADDR, .IN_LEN, .OUT_ADDR, .TOTAL_LENGTH)) 

OVERLAP_FLAG = 1; 


END; ! of total Length of sources computation and 
! overlap detection 


$ 
-$ 


= 


4 

! The remainder of the algorithm is different for each class of output 
string descriptor. 

; RESULT_CLASS = .DEST_DESC CDSC$B_CLASS); ! Class of output desc 


CASE -RESULT_CLASS FROM DSCSK_CLASS_Z TO DSCSK_CLASS_SB OF 


ts 2 = 2 
wah walval val ah al ea eal al al eal al eal tal eal eal eal al alee eal ea eae eal 
fete estes eee ww oe 
FW O OONOA UE AR OO ONOULS Ut" OO 


kK 3 
eae 1eo$ep-198e 82:20:08 — ECTantu’sneSstRcOncat 6821 


' Unspecific class (assume S$) 


7 Ds cen CLASs.z. 
? DSCSK_CLASS_S, ! Fixed Length string 
7 DSCSK_CLASS_A ! arra 
DSCSK-CLASS-NCA, i Non-cont i guous array 
SCSK_CLASS_SD ' Scaled eee mal 
DSCSKICLASS_SBd : i String with bounds 


1+ 
! The destination string has fixed-length semantics. Copy only as 
! much of the sources into it as its length allows. If its storage 
' overlaps ~ 9 the source strings, do the concetengt ton into a 

! temporary string and then copy back to the destination otring. 

; sum of source lengths less than destination length, pad with 
fill character. 


BEGIN ! Class_S, .2. A. .NCA, .SD, _SB 
IF (.OVERLAP_FLAG) 


BEGIN 
CAL 

CHR_PTR ! Variable pointer into output 
TEMP_DESC : SSTRSDESCRIPTOR; 

RETURN_STATUS = 


ww PUPP SIUSPVSVIVIVSVSVSTSVSVSIS ISIS 


C9 G9 C9 C9 OD C9 09 09 09 098 SINISE NI NINO OOO 
BNAMNES WN O ODNAUES WN SO OONOUE WHI OOONOUM 


40 P 159 SSTRSALLOC_TMP (MIN (MAX_SIZE, .TOTAL_LENGTH), 
40 9 TEMP_DESC); 

404 9 

405 9 '+ 

406 9 ! If allocate didn't work, don't continue the 

ret 9 concatenate 


3 
ooo 


IF .RETURN_STATUS 
THEN 


ee ee ee ee ee ded ed ed dd od od od 
AOAC OMIVIVIVIVIWIWVIWIUTUIUIUTUTU 


PAPAAPAAAAAAAAAAOUUIVUVIV RE ES EEE EERE EE EE EEE RUE Uitononoronoronoronononunononony 


Be Se Oe Se Se Be Se Ge Se Se Ge Ge Fe Se Se Ge SH Ss Se Ge Fe Ge Ge Se SH Se Ge Se Oe Ss Oe Se SH Ss Se SF SS Se Se Ss Oe OF SH S5 Ss Se Oe Se Se SH Se Se Se Se Seeses 
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4 
410 

411 99 

21g 00 BEGIN 

41 01 CHR_PTR = .TEMP_DESC CDOSCSA_POINTER]; ! init to 

414 O ' start of 

212 B27 ' temp output 
418 05 INCR_ ARG_NO FROM FIRST_INPUT_ARG TO ACTUALCOUNT() DO 
218 6 BEGIN ! copying Toop 

420 4 LOCAL 

421 IN_LEN ' Length of Nth input strin 

4 ; 610 INTADDR, | address of 1st byte of Nt 

? 7 oi) ! input string 

425 gi SRC_DESC : REF SSTRSDESCRIPTOR; 
ae . 

4 8 616 Get Nth input descriptor address 

4 618 SRC_DESC = ACTUALPARAMETER (.ARG_NO); 

a3 650 '¢ 

4 621 ! Extract length and address of this input 
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; 434 16 § $ ' string. There is no need to er status on 
; 455 + ! these calls. If there was anything 

3; 6 1624 6 ' wrong with the input descriptors, we would 

3; 4 1625 6 ! have signaled our way out of the loop where 

: : 19 § ? we added up the total lengths of the inputs. 
; 440 16 8 : SSTRSGET_LEN_ADDR (SRC_DESC, IN_LEN, IN_ADDR) ; 
: 44 1630 CHR_PTR = CHSMOVE (.IN_LEN, .IN_ADDR, .CHR_PTR); 
; 44 1631 END; ! copying loop 

iH Os . 

: rk 1634 i Now opy from the pmerers descriptor to the real 
; 44 1635 ! destination. The destination may be shorter than 
: 448 1636 2 ! TOTAL_LENGTH, in which case fewer characters will 
3; 449 1637 ' be copied than were concatenated, or it may be 

; 450 1638 5 ! Longer» in which case the destination will be 

: $3) 1973 2 } padded with blanks. 

; 438 1641 5 CHSCOPY ( MIN (MAX_SIZE, .TOTAL_LENGTH), 

> 454 ede 5 .TEMP_DESC COSCSA_POINTERJ, 

ie 8 Seicegtt=Sm 

; 437 1645 5 -OUT~ADDR); 

: 459 1647 5§ RETURN_STATUS = SSTRSDEALOC_TMP (TEMP_DESC); 

: 460 1648 4 END; ! of concatenation and copy via temp 
ne ’ 

: ri 1651 4 i Record actual size of constructed output string 

3 rec) 1936 ? for later evaluation of what status to return. 

: 466 1654 4 RESULT_LENGTH = .OUT_LEN ; 

3; 467 1655 4 END ! of overlap subcase 

; 468 1656 4 

3; 469 1657 3 ELSE 

2 et one 

: 47 1660 4 i This is the case of a fixed-length destination which 
3; 47 1661 4 ! does not qver tap any of the sources. We can copy 

: 474 1906 4 ! directly into the destination space. 

3 675 1665 4 l= 

; 476 1664 4 

ie 1 bore 

: 479 1667 4 CHARS _MOVED, 

a igs _—_ 

: 6 § 1690 & CHR_PTR = .OUT_ADDR; ! init to Ist byte of dest 

: $3? 1671 4 CHARS MOVED = 0; 

 ¢ 4 167¢ 4 ARG_NO = FIRST_INPUT_ARG; 

: 6 1674 4 WHILE (.CHARS_MOVED NEQ .OUT_LEN) DO 

3 cB 1923 BEGIN 

: 489 1899 i There is room for more characters in the 

3; 490 1678 ! destination string. Copy as much of the next 


i We have another input string. Copy it into 
! the destination string, or as muc 
will fit. 


of it as 


ooooo 


WWI AAAI ROPINOPNININININYD 4 = BQO OOO0O0O 


LOCAL 
SRC_DESC : REF SSTRSDESCRIPTOR; 


SRC_DESC = ACTUALPARAMETER (.ARG_NO); 


Extract length and address of this input 
string. There is no need to check status on 
these calls. If there was anything 

wrong with the input descriptors, we would 
have signaled our way out of the loop where 


Mm 3 
STRSCONCAT 16-Sep-1984 01:33: AX-11 Bliss-32 V4.0-74 P 13 STF 
Ot? 18-860 -1 984 93:20:08 UTARTL SRESSTRCONCAT.B82;1 mca I= 
' 
a3 ef j_ trout string as will fit. 
494 LOCAL 
495 6 : IN_LEN ' Length of Nth input strin 
496 684 INZADDR, i address of ist byte of Nt 
49 685 ! input string 
498 ? 8 CHARS_LEFT; 
? 8 CHARS_LEFT = .OUT_LEN = .CHARS_MOVED; 
230 IF (.ARG_NO GTR ACTUALCOUNT ()) 
4 THEN BEGIN 
698 iS 
694 ' We have exhausted the parameters, fill the 
695 i remainder of the destination string with 
$36 ' blanks. 
698 CHSFILL (STRSK_FILL_CHAR, .CHARS_LEFT, .CHR_PTR); 
700 
1 
¢ ELSE 
¢ BEGIN ! copy of one string 
6 
7 
8 
9 
0 
4 
5 
6 
1 
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; we added up the total lengths of the inputs. 
SSTRSGET_LEN_ADDR (SRC_DESC, IN_LEN, IN_ADDR) ; 


CHR_PTR = CHSMOVE ( MIN (.IN_LEN, .CHARS_LEFT), 
. IN_ADDR,~. CHR_PTR) ; 


CHARS_MOVED = .CHARS MOVED + 
MIN (.IN_LEN, .CHARS_LEFT); 


ARG_NO = .ARG_NO + 1; 
END; ! copy of one string 


END; ! of WHILE loop 
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CHARS MOVED = TCHARS_MOVED + .CHARS_LEFT; 
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i Record the actual Longes of the output string 
;_for later evaluation of the status to be returned. 
RESULT_LENGTH = .CHARS_MOVED ; 


! of non-overlapped 
! concatenation operation 


! of Class_S, _2, _A, _NCA, _SD, _SB 
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COSCSK_CLASS_D) : 


If we must reallocate the destination string (because the old string 
was not as long as the sum of the Lengths of the source strings) 

or if the source Strings overlap the destination string (which means 
that we are concatenating a substring Hh the result string. an 
therefore must not store into Fhe destination string until we finish 
fetching all of the source strings) then we must use a temporary 
descriptor to hold the concatenation. This is important for the 
reallocation case so that an AST will see, when looking at 

any particular character position of the string, either the old 
character or the new one. The AST will never see, for qnenp ye. 

- qnoty string into which we have not yet copied the first input 
string. 


BEGIN 
IF A. SVERLAP PLAS 


SSTRSNEED_ALLOC ( MIN (MAX_SIZE, .TOTAL_LE 
SSTRSDYN-AL_LEN (DEST~DE 


OR 
(.TOTAL_LENGTH GTR MAX_SIZE)) 
BEGIN 


NGTH), 
SC)) 


OCAL 
TEMP_DESC : SSTRSDESCRIPTOR, 


CHARS_MOVED, 
CHARS _LEFT; 


'¢ 


' Construct a dynamic string descriptor and try to 
allocate some space to it. 


orm 


BgCee_STvPE : 


SIZE. ~ TOTAL_LENGTH), 
1+ 

! If the allocate did not succeed then don't proceed 
with concatenate. 
IF_ .RETURN_STATUS 
THEN 

BEGIN 

i Init pointer to output area to first byte 
allocated to temp descriptor. 

CHR_PTR = .TEMP_DESC COSCSA_POINTER) ; 
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CHARS_MOVED = 0; 
CHARS_LEFT = MIN (MAX_SIZE, . TOTAL LENGTH); 


TNCR eg FROM FIRST_INPUT_ARG TO ACTUALCOUNT() DO 


E 

LOCAL 
IN_LEN ! Length of Nth input string 
INTADDR, addr of ist byte of Nth input 


: str Re 
SRC_DESC : REF SSTRSDESCRIPTOR; 
SRC_DESC = ACTUALPARAMETER (.ARG_NO); 


1+ 
! Extract length and address of this input 
string. There is no need to check status on 
these calls. If there was anything 
wrong with the input descriptors, we would 
have signaled our way out of the loop where 
we added up the total lengths of the inputs. 


SSTRSGET_LEN_ADDR (SRC_DESC, IN_LEN, IN_ADDR) ; 
IF (.CHARS_LEFT GTR 0) 
BEGIN 


N, .CHARS_LEFT); 
LEN, .IN_ADDR, .CHR_PTR); 


CHARS_MOVED = .CHARS MOVED + LEN; 
CHARS_LEFT = .CHARS_CEFT = .LEN; 


END; ! concatenate into temp 


+ 

! Now exchange our temporary descriptor with the 

! original destination descriptor, thus changing it 
' from pointing to its old string to pointing to 
the concatenation. 


SSTRSEXCH_DESCS (TEMP_DESC, DEST_DESC); 

+ 

! Now free the space which was described by the 

' destination descriptor on entry to this routine, 
since the caller no longer has access to it. 
RETURN_STATUS = SSTRSDEALLOCATE (TEMP_DESC); 


END; ! concatenate into temp and 
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16-Sep-1984 01:33: AX-11 BLi 
13-80 8= 1382 93:23:35 LIBRTL.SR 
! exchange of temp and dest 

END ! of overlapped subcase 


BEGIN 
'4 


! There is no overlap and the destination does not need 
' to be reallocated. We can use the more efficient 

! algorithm of concatenating directly into the 

! destination string. 


LOCAL 
CHR_PTR; 


CHR_PTR = .DEST_DESC COSCSA_POINTER); 
INCR Og FROM FIRST_INPUT_ARG TO ACTUALCOUNT () DO 


GI 
LOCAL 
IN_LEN ! Length of Nth input string 
INZADDR, ! addr of ist byte of Nth input 


H string 
SRC_DESC : REF SSTRSDESCRIPTOR; 
SRC_DESC = ACTUALPARAMETER (.ARG_NO); 


+ 

! Extract length and address of this input 

' string. There is no need to check status on 
!' these calls. If there was anything 

! wrong with the input descriptors, we would 

! have signaled our way out of the loop where 

} we added up the total lengths of the inputs. 


SSTRSGET_LEN_ADDR (SRC_DESC, IN_LEN, IN_ADDR) ; 
CHR_PTR = CHSMOVE ( .IN_LEN, .IN_ADDR, .CHR_PTR); 
END; ! copy directly into destination 

+ 

! The destination descriptor may (if it is a ‘'short 

' string’) have been longer than the sum of the source 

} lengths. If so, shorten it. 

DEST_DESC CDOSCSW_LENGTHJ= MIN (MAX_SIZE, .TOTAL_LENGTH); 

END; ! of non-overlapped subcase 

1+ 


' Record length of qutout string constructed for later 
evaluation of what status to return. 


GR PONAT WE$egc1984 $U:IB:E3 UGA O48 HbcHhelG74Bo, ese x i: 


; i 1917 ; RESULT_LENGTH = .DEST_DESC CDSC$W_LENGTH) ; 
: 732 1319 END; ! of Class_D 
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f ¢ 13 9 * COSCSK_CLASS_VSJ: 
7 § 12 § ! The destination string has var ings Leng h ser ing semantics. Copy 
7 9 ! only as much of the sources into it as its DSCSW_MAXSTRLEN Lengt 
7 1926 ' allows. If ty storage overlaps any of the source strings, do the 
7 1925 ! concatenation into a temporary string and then copy back to the 
740 13 $ ! destination string. 
741 1 ! If sum of source lengths is less than or equal to DSCS$W_MAXSTRLEN, 
rg 19 3 ! only its CURLEN field needs to be rewritten. If sum of sources is 
ee 4 greater than DSCSW_MAXSTRLEN field, STRS_TRU is returned. 
45 1931 
#8 19 ; BEGIN ! Class_vs 
4 19 
48 1934 '¢ 
49 1935 ' Real Length of a Class_VS destination is contained in 
50 19 § ! the MAXSTRLEN field. Readjust our record of what can 
2) 13 i be written into. 
38 1373 OUT_LEN = .DEST_DESC COSCSW_MAXSTRLEN) ; 
55 1941 4 IF (.OVERLAP_FLAG) 
2 1306 3 THEN 
5 1943 4 BEGIN 
58 1944 4 
59 1945 4 CAL 
760 1946 4 CHR_PTR ! Variable pointer into output 
61 1947 4 TEMP_DESC : SSTRSDESCRIPTOR; 
76 1948 4 
76 1949 4 RETURN_STATUS = 
764 P 1950 4 SSTRSALLOC_TMP (MIN (MAX_SIZE, .TOTAL_LENGTH), 
765 1951 4 TEMP_DESC); 
766 1336 4 
767 1953 4 '¢ 
768 1954 4 ! If allocate didn't work, don't continue the 
769 1955 4 ' concatenate 
770 1328 4 le 
771 1957 4 
77 1958 4 IF _.RETURN_STATUS 
77 1959 4 THEN 
774 1960 BEGIN 
775 1961 CHR_PTR = .TEMP_DESC CDSCSA_POINTER]; ! init to 
776 1966 ' start of 
aks 1307 !' temp output 
779 1965 INCR ARG_NO FROM FIRST_INPUT_ARG TO ACTUALCOUNT() DO 
780 1966 6 BEGIN ! INCR copying loop 
781 1967 6 
78 ieee 6 LOCAL 
78 136 6 IN_LEN ' Length of Nth input string 
784 1970 6 INTADDR, | address of Ist byte of Nt 
785 130) e ! input string 
1998 6 SRC_DESC : REF SSTRSDESCRIPTOR; 
1974 ° 
1975 '¢ 
790 1976 6 ! Get Nth input descriptor address 
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i This is the case of a varying. Length string 
! destination which does not overlap any of the sources. 
We can copy directly into the destination space. 


ae PTR 

CHARS MOVED, 

AR 3 

CHR_PTR = .OUT_ADDR; ! init to Ist byte of dest 


CHARS MOVED = 
ARG_NO = FIRST_INPUT_ARG; 


; 791 1977 \- 
: I36 138 SRC_DESC = ACTUALPARAMETER (.ARG_NO); 

: 794 1980 \¢ 

; 795 1981 6 ' Extract length and address of this input 

3 £38 ¢ 6 ' string. There is no need to check status on 
; 79 1 6 ! these colts. If there was anything 

; 798 1984 6 ! wrong with the input descriptors, we would 

; 799 1985 6 ! have signaled our way out of the loop where 

: ‘4 § ° we added up the total lengths of the inputs. 
4 0¢ 1988 6 S$STRSGET_LEN_ADDR (SRC_DESC, IN_LEN, IN_ADDR) ; 
; 804 1990 CHR_PTR = CHSMOVE (.IN_LEN, .IN_ADDR, .CHR_PTR); 
: 80g 1982 END; ! INCR copying’ Loop 

: 80 199 14 

; 808 1994 ' Now copy from the temporary descriptor to the real 
; 809 1995 ! dest norton. The dest ination may be shorter than 
; 810 1238 2 ! TOTAL_LENGTH, in which case fewer characters will 
; He 1938 be copied than were concatenated. 

3 B18 1999 ; CHSMOVE ( MIN (DEST Dest CDSC$W_MAXSTRLENJ, 

: 815 001 .TEMP_DESC CDSCSA_POINTER), 

: $18 O0¢ 2 -OUT_ADOR); 

; 818 004 3 RETURN_STATUS = $STRSDEALOC_TMP (TEMP_DESC); 

3 i B08 ? END; ! of concatenation and copy via temp 

: 8 4 1+ 

; & : 4 ' Record actual size of output string written for 

‘ : : ? later evaluation of what status to return. 

: 826 4 RESULT_LENGTH = MIN ( .DEST_DESC COSCS$W_MAXSTRLEN], 
: : i ? -TOTAC_LENGTH) ; 

; : ? ? END ! of overlap subcase 

. $3 ; ELSE 

; i 4 BEGIN 

3 4 '+ 

3 5 4 

: 4 

: 4 

; 4 

; 4 

3 4 

; 4 

: 4 

; 4 

3 4 

: 4 

g 4 

; 4 
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SRC_DESC : REF SSTRSDESCRIPTOR; 
SRC_DESC = ACTUALPARAMETER (.ARG_NO); 
i Extract Length and address of this input 


' 

!' string. There is no need to check status on 
these calls. If there was anything 
i 
i 


ee a 


w WH SORNOURUN—O 


wrong with the input descriptors, we would 
have signaled our way out of the loop where 
; we added up the total lengths of the inputs. 


$STRSGET_LEN_ADDR (SRC_DESC, IN_LEN, IN_ADDR) ; 


CHR_PTR = CHSMOVE ( MIN (.IN_LEN, .CHARS_LEFT), 
. IN_ADDR, ~.CHR_PTR); 


CHARS_MOVED = .CHARS_MOVED + 
MIN (.IN_LEN, .CHARS_LEFT); 


Oc 


; 848 4 4 

3 9 5 4 WHILE (.CHARS_MOVED NEQ .OUT_LEN) DO 

3 » § BEGIN 

H § 3 ! There is room for more characters in the 

3 ' destination str ng; Copy as much of the next 
: : re input string as will fit. 

: B28 rk 

3 4 LOCAL 

H 8 44 IN_LEN ! Length of Nth input strin 
; 859 7 INZADDR, i address of 1st byte of Nt 
3 0 § ! input string 

; 861 04 CHARS_LEFT; 

3 g a9 CHARS_LEFT = .OUT_LEN = .CHARS_MOVED; 

3 65 051 g IF (.ARG_NO GTR ACTUALCOUNT ()) 

3 O36 THE 

; 86 053 6 BEGIN 

; 868 O38 6 '¢ 

3; 869 55 6 ! We have exhausted the parameters, fill the 
: 870 B28 6 ! remainder of the destination string with 
; 871 057 6 ' blanks. 

$ He 058 6 be 

3 44 059 6 EXITLOOP ; 

3; 874 060 6 END 

; 875 061 3 

3 876 006 ELSE 

; 87 063 5 

; a8 : ° BEGIN ! copy of one more string 

3 $80 $ 6 ! We have another input string. Copy it into 
; 881 6 ! the destination string, or as much of it as 
3 § 8 6 ' will fit. 

; 88 9 ° !- 

; 885 ° LOCAL 

; 6 

3 6 

3 6 

3 6 

3 6 

; 6 

3 6 

3 6 

3 6 

; 6 

; 6 

3 6 

3 6 

3 6 

3 6 

3 6 

3 6 

; 6 
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4 
if spulobe 93:20:08 — EMfart°SReSstaconcat-0S2:1 all 
ARG_NO = .ARG_NO + 1; 
END; ! copy of one more string 


END; ! of WHILE loop 

14 

' Record actual Longsh of output string written for 
} later evaluation of status to be returned. 
RESULT_LENGTH = .CHARS_MOVED ; 


END; ! of non-over lapped 
‘a ! concatenation operation 


i Adjust CURLEN field to reflect the new size of the 
varying string. 


(.DEST_DESC CDOSCSA_POINTER])<0,16> = .RESULT_LENGTH ; 
END; ! of Class_vs 
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; g $ 13) = CINRANGE, OUTRANGE) : 

: 928 118 i The class of the destination string is unknown. Will cause an error 

3 g 3 aE: : to be signaled. 

; 4 116 : RETURN_STATUS = STRS_ILLSTRCLA; 

: 9 1 TES; 

3; 9 118 

3 9a0 120 '¢ 

; 9 121 ! If any of the allocations or deallocations previously failed, or 

: 4 i } ¢ Llegal string class was found then signal the error. 

: 939 4 " $STRSSIGNAL_FATAL (RETURN_STATUS); ! Signal fatal error 

; 941 1 § IF .RESULT_CLASS EQL DSCS$K_CLASS_D 

3; 94 1 THEN 

3 eez ! 3 BEGIN ! special processing for dynamic semantics 

: 945 130 IF (.RESULT_LENGTH NEQ .TOTAL_LENGTH) THEN 

; ee8 ; 1 LIBSSTOP (STRS$_STRTOOLON) ; 

: 948 1 RETURN (STRS_NORMAL); ' used because bliss compiler 

; 949 134 ! doesn't understand routines 

3 44 : 5 ! that don't return 

; 326 : ? END ! special processing for dynamic semantics 

: 954 139 : ELSE ' special processing for fixed and varying 

; 955 140 ! gtring semantics 

; 956 141 4 RETURN (IF (.RESULT_LENGTH GEQ .TOTAL_LENGTH) 

3; 957 sp THEN 

; 958 14 SS$_NORMAL 

: 959 144 ELSE 

3; 960 145 § STR$_TRU ); 

; 961 146 

; 962 147 1 END; ! End of STRSCONCAT 
eTITLE STRSCONCAT 
-IDENT \1-017\ 
-PSECT _STRSCODE,NOWRT, SHR, PIC,2 

00 00 54 41 43 4E 4F 43 24 52 54 53 00000 P.AAA: .ASCII \STRSCONCAT\<0><0> 3 


.EXTRN LIBSSTOP, STRS$_NORMAL 
SEXTRN STRS$_STRIS_INT; STRS_ILLSTRCLA 
TEXTRN STRS-TRU, STRS_FATINTERR 


-EXTRN STRS-STRTOOLON, STR$_WRONUMARG 
-EXTRN STRSANALY C_RI 

-EXTRN STRSSINIT, STRSSV_INIT 

-EXTRN STRSSALOC T 

-EXTRN STR$$Q SHORT Q, LIBSGET VM 
-EXTRN STRS_IASVIRMEM, LIBSFREE_VM 
-EXTRN STRSSMOVQ_R1 
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#STRS Presctop” 


44, 
c RETURN. STATUS 
(a 
RIT tt 
$7) OUT_LEN 
be OUT_ADDR 


OT RSAMALYZE _SDESC_R1 
RO, 4 (SP) 


(SP 
Total” “LENGTH 
i. ARON NO 
(AP) CARG NOI, sr _DESC 
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SRC bese) IN_LEN 
(SRE. DESCS, IR_ADDR 
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aot5 1 ~300n 138% 93:23:38 ANBRTL SREASTACONCAT. 62:1 pit (33 
1 @1 $,- Py 
138-1 $;- : 
: $-10$,- ‘ 
1$-10$.- : 
11$-10$.- ; 
133-108" 
08 AE 000000006 BF C5 11$: HOVL #STRS_ILLSTRCLA, RETURN_STATUS 2116 : 
03 nas 09 12$ BLBS QYERLAP_FLAG, 13$ 1581 : 
7 000000006 6 D6.13$: BLBS  STRS$V uit 14$ 1591 
000000006 DD CALLS #0, STRSSINIT 
000000006 8F eA 14$: HOVL #STRS_NORMAL , RETURN. STATUS 
OOOOF FFF F : os cMPL Ree ri ’ 
52 FFFF tf Ff MOVZW #65535, R 
000000FO BF ; oF¢ 15$: CHL Re, #240 . 
$) 5 TSTL = R2 
: 7 BNEG 16$ 
3 CLRL ‘TEMP 
BRB 21$ 
51 FF OA 16$: NOVA sire). R1 
54 00000000600 MOVAB STR$$Q_SHORT_QCR1], REMQUE_ADDR 
53 00 17$: REMOUE 9 (REMQUE ADDR), TEMP 
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0 111 
41 114 
B4 11¢ 
05 120 S 
52 01 1 MOVL #1, ALLOC_DONE 
19 1 BRB 20$ 
52 127 18$: CLRL §ALLOC_DONE 
56 129 PUSHL TOTAL “LENGTH 
OOOOFFFF  8F 6E 1 : (SP) "#65535 
0 1 BLEQ ~=s«a1i9 
6E FFFF oF 134 MOVZWL #65535, (SP) 
000000006 00 1 139 19$: CALLS #1, STRSSALOC_SHORT 
05 ; 149 20$: BLBS ALLOC 
41 30 14 BLBC RETURR_STATUS, 25$ 
3¢ 5 128 21$:  BLBC RETURN STATUS, 25$ 
24 «AE 148 MOVL TEMP, TEMP _DESC+4 
51 £ 14F MOVL TOTAL LENGTH. R1 
QOOOFFFF  8F 1 1 3 CMPL =o, #6 
5 1 BLEG 2 § 
51 FFFF BF 1 : MOVZ2WL #65535, R1 
20 AE 1 160 228:  MOVW  R1, TEMP_DESC 
1 1 BRB 5¢ 
24 AE 166 23$: § PUSHAB TEMP_DESC+4 
10. AE 5 1 MOVL R2, T6(SP) 
10 A 1 PUSHAB SP) 
000000006 Q 1 CALLS #2, LIBSGET_VM 
17 BLBS § RETURN STATOS, 2 
0 000000006 &F 17A MOVL #STRS_INSVIRMEM, RETURN_STATUS 
4 1 BRB 25$ 
; 1 R 
1 R 
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e DESC, #240 
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eC STRING. BLOCK), ALLOC_LENGTH 
7, R1 

TR$$Q_SHORT_QCR1], INSQUE_ADDR 
RY). SOC INSGUE_ADDR) 
EMP_DESC+4 

EMP"DESC, 16(SP) 

§(SP) 

LIBSFREE_VM 

RETURN_STATUS 

#STRS_FATINTERR, RETURN. STATUS 
RETURN STATUS, RETURN STATUS 
OT UREA RESULT_LENGTA 
OUT ADDR. Gir _PTR 
ae 


NO” 
Ewins MOVED. OUT_LEN 


CHARS MOVED, OUT LEN, CHARS_LEFT 
WB, (APS, ARG_N 


#0, (SP), #32, CHARS_LEFT, @CHR_PTR 
WARS_LEFT, CHARS_MOVED 
(AP)CARG_NOJ, SRC_DESC 
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STRSCONCAT 16-Sep-1984 01:33: AX-11 Bliss-32 V4.0-74 Page 27 
Bit 19-808- 1382 94:33:38 ANRTL SReASTACONCAT 64251 . (3 
02 03 Ad 91 0025 CMPB (SRC_DESC), #2 : 1723 
09 A é BGTRU $58 * : 
59 6 MOVZWL (SRC_DESC), IN_LEN : 
1 04 =A p MOVL (SRC_DESCS, IR_ADDR : 
. 000000006 3 \ 2 38$: JSB STRSANALYZE_SDESC_R1 : 
A ; p i 39$: CPL R9, CHARS_LEFT : 1725 
59 A p 79 MOVL CHARS_LEFT, R9 : 
OC BE 61 7C 40$:  MOVC3 RY, (IN_ADDR), @CHR_PTR + 1726 
Oc AE D I MOVL : PTR : 
56 C ADDL2 9, CHARS_MOVED + 1729 
& 06 INCL  ARG_NO + 1731 
AE 1 A BRB 36 + 1674 
SA 38 00 C41$: -MOVL HARS_MOVED, RESULT_LENGTH + 1740 
04g 1 F aes: BRW + 1562 
5B 6 dO 00 32 43$:  MOVL ‘TOTAL LENGTH, R11 : 1788 
QOOOFFFF  F 58 DI 0 95 CMPL R11, 965535 : 
5B FFFF tf 3 0 3 MOVZWL #65535, R11 ; 
5c 3 £8 OOCAS 44$: BLBS  OVERLAP_FLAG, 52$ + 1763 
51 56 DO 00 a8 MOVL TOTAL LENGTH, R1 3 1766 
QOOOFFFF  8F 51 D1 002A CMPL = R1, #8553 : 
05 15 0028 BLEG © 45$ : 
51 FFFF 8F 3¢ 0 B MOVZWL #65535, R1 ; 
52 04 AZ DO 00287 45$ MOVL 4(R?), ; 
53 D4 O02BB CLRL = RB ; 
52 D3 02BD TSTL OR : 
06 12 002BF BNEG 46$ ; 
D6 002C1 INCL R : 
50 4 90 cS CLRL = RO : 
13 11 002C¢ BRB 48$ : 
OOFO 8F 67 B1 002C7 46$ CMPW ss (7), #240 ; 
03 1B 002CC BLEQU 47$ F 
50 67 3C O02CE MOVZWL (R7), RO : 
07 11 00201 BRB 48$ : 
50 38 p0 0203 47$:  MOVL 2, STRING BLOCK ; 
50 FE AO 3C 00206 MOVZ2WL -2(STRING_BLOCK), RO : 
000000FO 8F 50 D1 0 DA 48$:  CMPL RO, #240 ; 
¢1 1F 00261 BLSsu 538 : 
04 3 £9 002E3 BLBC = R3,, 498 : 
50 04 00 E6 CLRL = RO ; 
13, «11 0 E BRB 51$ : 
OOFO 8F 67 B81 OOCEA 49$:  CMPW  (R7), #240 : 
05 1B OO2EF BLEQU 50$ : 
50 ? 3¢ F1 MOVZWL (R7), RO ; 
7 11 00284 BRB 51$ : 
50 : p0 Fé 50$ MOVL 2, STRING BLOCK : 
50 FE AO 3C OOF MOVZWL -2<(STRING BLOCK), RO : 
50 1 p} FD 51$:  CMPL § Ri, RO : 
1 ; BEQL 278 ; 
1 528: BRB 8s : 
04 £9 $:  BLBC R3, 548 : 
b4 7 CLRL = RO : 
13° «11 BRB 56$ : 
OOFO BF 67 81 54$:  CMPW  (R7), #240 : 
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#1, STRSSALOC_SHORT 
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RETURN_STATUS, 69% 
RETURN. STATUS, 69$ 
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TOTAC_LENGTHe AT” 
ab§58 ¢ 


i 
otf sss, R1 
Ri, TEMP_DESC 


69 
TEMP_DESC 44 
R11, ~16(SP) 
16(§P) 


#2, LIBSGET_VM 
RETURN_STATOS, 68$ 
#STRS_INSVIRMEM, RETURN_STATUS 
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STRSCONCAT -$ep-1984 01:33: AX-11 Bliss-32 V4.0-74 Page 29 
a r6t5 ~$007 138% 04:33:38 LIBRTL.SRCISTACONCAT .B 2:1 . (3) 
010D 31 BRW 84$ : 
53 24 AE DO 70$:  MOVL TEMP_DESC+4, CHR_PTR + 180 
g OG Girt SOTASTLENESH, Rt : 1Boa 
OOOOF FFF 3 1 i CMPL Ri bes h38 ; : 
1 FFFF 8F 3¢ MOVZWL #65535, R1 : 
8 1 po 71$:  MOVL R1, CHARS_LEFT : 
7 C 9A MOVZBL (AP), R7 + 1806 
59 1 00 MOVL 4) ARG_NO : 
50 cao p9 72$: MOVL AP) CARG_NOJ, $RC_DESC + 1815 
0 03 AQ CMPB (SRC_DESC), # + 1825 
09 #1A BGTRU 73$ : 
52 60 3¢ MOVZWL (SRC_DESC), IN_LEN : 
51 04 Ad dO MOVL 4 (SRT_DESCS, IR_ADDR : 
9 11 BRB 74$ : 
000000006 16 73$: JSB STRSANALYZE_SDESC_R1 : 
52 00 MOVL : 
58 D 74$: =‘ TSTL HARS_LEFT ; 1827 
1D 15 BLEQ ; 
50 38 D0 MOVL IN_LEN, RO + 1834 
58 50 (D1 CMPL RO; CHARS_LEFT : 
03 +15 BLEQ 3 
50 58 D0 MOVL  CHARS_LEFT, RO : 
16 AE 50 0 75$: -MOVL : ; 
63 61 146 AE MOVC3 LEN, (IN_ADDR), (CHR_PTR) + 1836 
58 14 AE4B MOV LENCCHARS MOVED), CHARS_MOVED : 1838 
58 14 AE C SUBL LEN, CHARS_LEFT + 1839 
BF 59 57 F 76$:  AOBLEQ R?, ARG_NO, 72$ + 1806 
51 04 ac 00 MOVL DEST_DESC, R : 1850 
18 AE 61 BO MOVW (R1)> $STRSTEMP_DESC : 
1c AE 04 Al 00 MOVL  4(R1S, SSTRSTEMP DESC+4 F 
22 AE : Al B0 MOVW  2(R1). TEMP _DESC#2 : 
50 2 AE E MOVAB TEMP DESC, RO : 
000000006 00 16 JSB STRSSMOVO_R1 : 
20 AE 18 AE B MOVW $STRSTEMP"DESC, TEMP_DESC ; 
24 AF 1c AE OD MOVL  § $STRSTEMP™DESC+4, TEMP DESC+4 : 
50 000000006 8F D MOVL § #STR$_NORMAL, RETURN_STATUS > 1857 
52 24 AE OD MOVL TEMP _DESC#+4, R2 : 
3€ (1 BEQL 7 s 
OOFO 8F 20 AE ry CMPW TEMP_DESC. #240 : 
1A 1A BGTRU 77S ; 
51 3¢ pd MOVL 2, STRING BLOCK ; 
1 FE al ¢ MOVZWL : (STRING_BLOCK), ALLOC_LENGTH : 
51 07 bh BICB2 «#7, RI : 
1 0000000060041 9€ MOVAB STRS$S$Q SHORT QCR1], INSQUE_ADDR : 
00 «81 62 OF INSQUE (Re), 30 (INSQUE_ADOR) ; 
1C RB 78 : 
4 AE OF 77$: | PUSHAB TEMP_DESC+4 : 
10 AE 4 AE 3¢ MOVZWL TEMP DESC, 16(SP) ; 
0 AE OF PUSHAB 16(SP : 
000000006 0 fs CALLS #2, LIBSFREE_VM : 
6 £ BLBS RETURN STATUS. 78$ : 
0 000000006 B&F DO 004 MOVL  &#STRS$_FATINTERR, RETURN. STATUS : 
08 AE 0 DO 0048) 78$: MOVL = RETURN_STATUS, RETURN_STATUS : 


dD 5 
STRSCONCAT 16-Sep-1984 01:33: AX-11 Bliss-32 V4.0-74 Pp 
Bt 1e-Sep- 7 94:33:38 AYRTL SREISTRCUNC AT B%251 oe (3 ;. 
11 004C BRB 84$ 17 
3 04 po ats 79$: MOVE 4(R7), CHR_PTR 1897 
A 004¢ MOVZBL (AP) 1879 
ee a eg ea 
50 6C po 4CF 80$ MOVL AP)CARG_NOJ, SRC_DESC 1888 
02 03 403 CMPB (SRC_DESC), # 1898 
yA 4D BGTRU 818 
52 409 MOVZWL (SRC_DESC), IN_LEN 
1 04 p 4D MOVL 4(SRC_DESCS, IR_ADDR 
“ 000000006 1 aE 81$: Js STRSANALYZE,SDESC_R1 
63 61 p 6 EB 838: MOVC3 IN-LEN, (IN_ADDR), (CHR_PTR) 1900 
nya 8 F EF 83$:  AOBLEQ R9> ARG_NO, ~80$ 1879 
67 0 F3 MOVW R14, (R?) 1909 
SA 04 C 0046 84$ MOVZWL @DEST_DESC, RESULT_LENGTH 1917 
01 1 OO4FA BRW 1168 136 
04 ar ¢ 0 FD 85$ MOVZWL (R7), OUT_LEN 19 
0 i 0 01 BLBS OVERLAP_FLAG, 86$ 1941 
07 000000006 0 o7 86$: BLBS  STRS$$V_INIT, 87$ 1951 
000000006 00 0 CALLS #0 YRSSIN T 
20 000000006 9 87$: HOVL TarAL-engtR: RETURN, STATUS 
QOOOFFFF  F 0 CMPL R2, #65535 
ee et: a ae ae 
000000FO BF 88$: CPL Re #240 


FF 


51 
51 R 
34 00000009600 STR$$Q_SHORT_QCR1] REMQUE _ADDR 


MOVAB 
90$: REMOUE @0(REMOUE_ADBR), TEM 
MOVL #1, ALLOC_DONE 

93$ 


C 
D 
4 
6 
8 
A 
C $ 

89$: MOV -1(R2), R1 
; a? 
Dd 
1 
3 
: 91$: CLRL ALLOC_DONE 
A 
1 
4 
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FN OWI FORD) 2 MTP ONE IND WEN FU MUNA. MOOMWN POW OWOOOWOOCOOOD0— Nn aw 


Se Se Se Se Se Se Ge Se Se Se Se Se See Se Ge Se Se Ss Se Ge Ge Ge Se Fe Ge Se Fe Ge Se Ge Se Se Be Ge Be Se Se Se Ge Se Ge Be Se Fe Se Fe Be Se Se Fe Be Se BeBe BeBe 
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LOC. 
PUSHL  TOTAL“LENGTH 
OOOOFFFF  8F CMPL (SP), #65535 
6 FFFF MOVZWL #65535, (SP) 
000000006 0 998: CALLS #1, STRSSALOC HORT 
$: BLBS ALLOC DONE, 9% 
41 BLBC R TURR_STATUS, 98$ 
3¢ 79 94$:  BLBC  RETURN-STATUS, 98$ 
24 Ar 7 MOVL TEMP, TEMP _DESC+4 
3 MOVL TOTAL LENGTH. R1 
OOOOFFFF  &F CMPL 6 R1, #8553 
A BLEQ 99$ 
51 FFFF C MOVZWL a 535, R1 
20 AE 195%: MOV’ RI, TEMP_DESC 
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SIRscONcAT 1$-Sep-1964 01:55:52 YAKGI1 Blisg=32 v4.0-742, Page 31 


-Sep-19 LIBRTL.SRCJSTRCONCAT. 
21. «11 BRB 98$ F 
24 Ag OF $3 96$:  PUSHAB TEMP_DESC+4 F 
10 AE 5 po A MOVL  R2, T6(SP) : 
10 AE OF F PUSHAB 16(SP) : 
000000006 9 F A CALLS LIBSGET_VM : 
& Ag BLBS § RETURN STATOS, 97$ : 
MOVL § #STRS_INSVIRMEM, RETURN_STATUS : 
0 000000006 Fo A ROY #STRS_I 3 
20 AE : B B4 97$:  MOVW  R2, TEMP_DESC ; 
8 AF D BB 98$:  MOVL RETURN_STATUS, RETURN. STATUS : 
0 08 oot it : BLBS RET RN-STATUS, 99$ + 1958 
58 24 Ag D0 C3 99$: MOVL TEMP DESC+4, RB + 1961 
5 5 3 C MOVL R8, CHR_PTR : 
57 6C 9A OOS5CA MOVZBL (AP), R + 1965 
59 01 00 05¢D MOVL #1, ARG_NO : 
20 11 00 09 BRB $$ : 
50 6049 po 05D2 100$:  MOVL (AP) CARG NO], SRC_DESC + 1978 
02 03 AO 91 0506 CMPB (SRC_DESC), # + 1988 
09 1A 005DA BGTRU 1018 : 
52 60 3¢ 005p¢ MOVZWL (SRC_DESC), IN_LEN : 
51 04 AO DdO 005DF MOVL 4 (SRT_DESCS, IR_ADDR : 
9 11 005€3 BRB 102$ ; 
oe ANALYZE_SDESC_R ; 
i 000000006 0 i O5ES 101$ Js STRSA ze 1 
63 61 3g 2 OEE 1038: MOVC3  IN_LEN, (IN_ADDR), (CHR_PTR) ; 1990 
:  AOBLEQ R7~> ARG_NO, + 196 
Ya 59 57 F3 005Fe 103$ EQ R7> ARG 5 
50 04 8 3C 00566 MOVZWL @DEST_ DESC. RO : 2000 
56 : D1 OOSFA CMPL RO, _TOTAL_LENGTH ; 
9 15 005FD BLEG § ©=-« 104 ; 
50 6 pO O05FF MOVL. TOTAL_LENGTH, RO : 
00 BE 68 50 (28 00602 104$: MOVC3 RO, (RB), @OUT ADDR ; 2002 
50 000000006 af 960 HOVL #STRS_NORMAL, RETURN_STATUS : 2004 
3E 13 0061 BEQL 1068 : 
OOFO 8F 20 AE B61 0061 CMPW  TEMP_DESC, #240 ; 
1A 1A 0061 BGTRU : 
51 58 p0 O61A MOVL 8, STRING BLOCK ; 
1 FE AI ¢ 0610 MOVZWL -2(STRING_BLOCK), ALLOC_LENGTH ; 
51 0621 DECL = ; 
51 07 8A 00623 BICB2 #7, RI ; 
51 0000000060041 9€ 00626 MOVAB STRS$S$Q SHORT QCR1)], INSQUE_ADDR ; 
00 81 68 OF 6 INSQUE (RB), SOCINSQUE_ADDR) ; 
1c 1 BRB 106$ : 
4 AE OF 105$: PUSHAB TEMP_DESC+ : 
10 AE 4 AE 3C 7 MOVZWL TEMP™DESC, 16(SP) ; 
0 Ac OF C PUSHAB 16(SP) ; 
000000006 9 FB 0063F CALLS #2, LIBSFREE_VM ; 
E 64 BLBS § RETURN STATUS, 106$ ; 
0 000000006 8F »D 4 MOVL  #STRS$_FATINTERR, RETURN_STATUS ; 
08 Ar 0 p 1068 ROVE RETURR_STATUS, RETURN_STATUS ; 
3 04 ¢ 4 107$: MOVZWL @DEST DESC > 2013 
é ¢ 8 CMPL RO, TOTAL_LENGTH ; 
B BLEG }~3=s«é1 08S : 
50 f D MOVL § TOTAL_LENGTH, RO ; 
A p 60 108$: MOVL RO, RESULT_LENGTH : 201 
4A 6 BRB 115$ > 194 


re 


T 


SEONCAT 
1 
a H 
52 04 =A H 
57 6C 08 ; 
5 6C47 
30 03 4 
0 
9 6 
1 046 =A 
000000006 3 
59 
52 
59 
2 ; 
58 9 
f 
5A 4 
50 04 Ac 
04 B80 aA 
ig 08 Ar 
04 08 AE 0 8 
A 
08 AE 
000000006 00 01 
02 10 AE 
1A 
56 on 
000000006 8F 
000000006 2 1 
0 000000006 8F 
56 oe 
4 
50 1 


50 000000006 8&F 


@ooo-90NVC -2-90 9 |] 9 09 SS TM.M SONS 


oo 9090 "9-90 -9oO 790 —mm 


FOL OOH £OD9 Wl" $ DINI DOOCO- AOD OF ON & “CO0OOWW "9 O 


16s ; 1 
eo- 
14- Hat 
H 1098: 


1108: 


SNAAOAO 


o—~"m 


SSSR MOIS 
= 


2282 
WET OD 
—2 
— 

Ww 
ca 


DPPRPRDPAPPAAPLA AAA AA AA AAA AAA AAO 


117$: 


OOOOOOCoCoOoSoSoS 
AAO 
ow» 
wm 
— — 
—— Sb a 
oa 
fr Ae 


AAOAAAO 


6ES 1188: 
6ED 1198: 


bere 1208: 
FD 


; Routine Size: 1790 bytes, Routine Base: _STRSCODE + 000C 


SERE. 
horofrory 
4 
Vink & 
—-O0® 
own 
mm 

= 

o 


Bc 12:40:08 EMantu’sné$staconeat-082, 1 
MOVL OyT AD ABR. CHR_PTR 
MOVQ 


6_NO 
Chins MOVED, OUT_LEN 


CHARS oven ouT LEN, CHARS_LEFT 
WB, (APS, ARG_N 


CARG NOI, re DESC 
C_DESC) 

ESC), IN_LEN 
tb ESCS, IR_ADDR 
NALYZE_SDESC_R1 
ARS_LEFT 


RESUCT_ LENGTH, 94 (R09 
R TURN SF ATU S$; 117 
H +5 #3; RETURN_STATUS, #4 
RETURN. STATUS 
$STOP 

ne LT_CLASS, #2 
RESULT. LENGTH, TOTAL_LENGTH 
aSTRS STRTOOLON 

LIBS STOP 
astR _NORMAL, RO 
RESULT_LENGTH, TOTAL_LENGTH 
120$ 
#i, RO 
#STRS_TRU, RO 


'End of module STRSCONCAT 


2147 


5 
STRECONCAT 18-sep-1986 01:33: AX-11 Bliss-32 v4.0-7 p 3 
it eat) a Ee rs iL etre ae alll” 


; PSECT SUMMARY 
: Name Bytes Attributes 
: _STRSCODE 1802 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


ee | Used: 478 pages 
Compilation Complete 


; eoereee= Symbols -------- Pages Processing 

$ File Total Loaded Percent Mapped Time 

: _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 17 0 581 00:00.8 

; COMMAND QUALIFIERS 

3 BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /NOTRACE/LIS#L1SS:STRCONCAT/0BJ20BJ$: STRCONCAT MSRC$:STRCONCAT/UPDATE=(ENHS$: STRCONCAT 
: Size 1790 Go! 38. + 12 data bytes 

3 ms Time 

; Sleseed Time: O14 

3: Lines/CPU Min: 4851. 

3 oneneel Sa 26449 


AH-BI13A-SE DIGITAL EQUIPMENT CORPORATION 
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a2! 


